﻿Public Class clsFlBPLC
    Public Function selectAll() As DataTable
        Dim dt As DataTable = New DataTable
        Dim szSql As String = String.Empty
        szSql &= "SELECT * FROM sf.b_plc_gjbby "
        dt = DBacs.ExecuteSql(szSql, -1)
        Return dt
    End Function

    Public Sub insertLog(_item As String, _itemValue As String)
        Dim szSql As String = String.Empty
        szSql &= "INSERT INTO sf.b_log_flb(log_time, item, itemvalue) "
        szSql &= "VALUES ((SELECT CURRENT_TIMESTAMP(6)), ?, ?) "
        DBacs.ExecuteUpdateSql(szSql, -1, _item, _itemValue)
    End Sub
End Class
